home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGOSRC.ARC / STBLITS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1985-11-20  |  5.5 KB  |  316 lines
  1.  
  2. #include <stdio.h>
  3. #include <aline.h>
  4. #include "stcel.h"
  5.  
  6.  
  7. #define R_NOP 5
  8. #define R_CLR 0
  9. #define R_SET 15
  10. #define R_XOR 6
  11. #define R_CPY 3
  12. #define R_OR  7
  13. #define R_SCOOP 4
  14.  
  15.  
  16. copy_blit(width, height, sx, sy, spt, srow_bytes, dx, dy, dpt, drow_bytes)
  17. WORD width, height, sx, sy, srow_bytes, dx, dy, drow_bytes;
  18. WORD *spt, *dpt;
  19. {
  20. struct bbblock b;
  21.  
  22. b.b_wd = width;
  23. b.b_ht = height;
  24. b.plane_ct = 4;
  25. b.op_tab[0] = b.op_tab[1] = b.op_tab[2] = b.op_tab[3] = R_CPY;  /*replace */
  26.  
  27. b.s_xmin = sx;
  28. b.d_xmin = dx;
  29. b.s_ymin = sy;
  30. b.d_ymin = dy;
  31. b.s_form = spt;
  32. b.d_form = dpt;
  33.  
  34. b.s_nxwd = b.d_nxwd = BITPLANES*2;
  35. b.s_nxln = srow_bytes;
  36. b.d_nxln = drow_bytes;
  37. b.s_nxpl = b.d_nxpl = 2;
  38. b.p_addr = NULL;
  39. if (dest_clip_block(&b) )
  40.     if (source_clip_block(&b))
  41.         ablit(&b);
  42. }
  43.  
  44. clip_from_screen(c, screen)
  45. register Cel *c;
  46. WORD *screen;
  47. {
  48. copy_blit(c->width, c->height, c->xoff, c->yoff,  screen, 160, 
  49.     0, 0, c->image, Raster_line(c->width) );
  50. copy_words(sys_cmap, c->cmap, 16);
  51. }
  52.  
  53. swap_sd(b)
  54. register struct bbblock *b;
  55. {
  56. register WORD swap;
  57.  
  58. swap = b->d_xmin;
  59. b->d_xmin = b->s_xmin;
  60. b->s_xmin = swap;
  61.  
  62. swap = b->d_ymin;
  63. b->d_ymin = b->s_ymin;
  64. b->s_ymin = swap;
  65. }
  66.  
  67. source_clip_block(b)
  68. register struct bbblock *b;
  69. {
  70. WORD ret;
  71.  
  72. swap_sd(b);
  73. ret = dest_clip_block(b);
  74. swap_sd(b);
  75. return(ret);
  76. }
  77.  
  78.  
  79. dest_clip_block(b)
  80. register struct bbblock *b;
  81. {
  82. register WORD x2, y2;
  83.  
  84. if ((x2 = b->d_xmin) >= XMAX || 
  85.     (y2 = b->d_ymin) >= YMAX)
  86.     return(0);
  87. if ( (x2+=b->b_wd) <= 0 || (y2+=b->b_ht) <= 0)
  88.     return(0);
  89. if (b->d_xmin < 0)
  90.     {
  91.     b->b_wd -= (0 - b->d_xmin);
  92.     b->s_xmin += (0 - b->d_xmin);
  93.     b->d_xmin += (0 - b->d_xmin);
  94.     }
  95. if (b->d_ymin < 0)
  96.     {
  97.     b->b_ht -= (0 - b->d_ymin);
  98.     b->s_ymin += (0 - b->d_ymin);
  99.     b->d_ymin += (0 - b->d_ymin);
  100.     }
  101. if (x2 > XMAX)
  102.     b->b_wd -= x2-XMAX;
  103. if (y2 > YMAX)
  104.     b->b_ht -= y2-YMAX;
  105. return(1);
  106. }
  107.  
  108.  
  109. xor_celblit(x, y, cel)
  110. WORD x, y;
  111. Cel *cel;
  112. {
  113. celblit(x, y, cel, R_XOR);
  114. }
  115.  
  116. copy_celblit(x, y, cel)
  117. WORD x, y;
  118. Cel *cel;
  119. {
  120. celblit(x, y, cel, R_CPY);
  121. }
  122.  
  123. celblit(x, y, cel, op)
  124. WORD x, y;
  125. register Cel *cel;
  126. WORD op;
  127. {
  128. struct bbblock b;
  129.  
  130. b.b_wd = cel->width;
  131. b.b_ht = cel->height;
  132. b.plane_ct = 4;
  133. b.op_tab[0] = b.op_tab[1] = b.op_tab[2] = b.op_tab[3] = op;
  134.  
  135. b.s_xmin = 0;
  136. b.d_xmin = x+cel->xoff;
  137. b.s_ymin = 0;
  138. b.d_ymin = y+cel->yoff;
  139. b.s_form = cel->image;
  140. b.d_form = cscreen;
  141.  
  142. b.s_nxwd = b.d_nxwd = BITPLANES*2;
  143. b.s_nxln = Raster_line(cel->width);
  144. b.d_nxln = 160;
  145. b.s_nxpl = b.d_nxpl = 2;
  146. b.p_addr = NULL;
  147. if (dest_clip_block(&b))
  148.     ablit(&b);
  149. }
  150.  
  151. twist_xor_celblit(x, y, cel)
  152. WORD x, y;
  153. Cel *cel;
  154. {
  155. twist_celblit(x, y, cel, R_XOR);
  156. }
  157.  
  158. twist_copy_celblit(x, y, cel)
  159. WORD x, y;
  160. Cel *cel;
  161. {
  162. twist_celblit(x, y, cel, 3);
  163. }
  164.  
  165. untwist_clip_from_screen(cel, screen)
  166. register Cel *cel;
  167. WORD *screen;
  168. {
  169. struct bbblock b;
  170.  
  171. b.b_wd = cel->width;
  172. b.b_ht = cel->height;
  173. b.plane_ct = 4;
  174. b.op_tab[0] = b.op_tab[1] = b.op_tab[2] = b.op_tab[3] = 3;  /*replace */
  175.  
  176. b.d_xmin = 0;
  177. b.s_xmin = cel->xoff;
  178. b.d_ymin = 0;
  179. b.s_ymin = cel->yoff;
  180. b.d_form = cel->image;
  181. b.s_form = screen;
  182.  
  183. b.d_nxwd =  cel->height*2;
  184. b.d_nxln = 2;
  185. b.d_nxpl = Mask_block(cel->width, cel->height);
  186.  
  187. b.s_nxwd = BITPLANES*2;
  188. b.s_nxln = 160;
  189. b.s_nxpl = 2;
  190.  
  191. b.p_addr = NULL;
  192. ablit(&b);
  193. copy_words(sys_cmap, cel->cmap, 16);
  194. }
  195.  
  196. twist_celblit(x, y, cel, op)
  197. WORD x, y;
  198. register Cel *cel;
  199. WORD op;
  200. {
  201. struct bbblock b;
  202.  
  203. b.b_wd = cel->width;
  204. b.b_ht = cel->height;
  205. b.plane_ct = 4;
  206. b.op_tab[0] = b.op_tab[1] = b.op_tab[2] = b.op_tab[3] = op;  /*replace */
  207.  
  208. b.s_xmin = 0;
  209. b.d_xmin = x+cel->xoff;
  210. b.s_ymin = 0;
  211. b.d_ymin = y+cel->yoff;
  212. b.s_form = cel->image;
  213. b.d_form = cscreen;
  214.  
  215. b.s_nxwd =  cel->height*2;
  216. b.s_nxln = 2;
  217. b.s_nxpl = Mask_block(cel->width, cel->height);
  218.  
  219. b.d_nxwd = BITPLANES*2;
  220. b.d_nxln = 160;
  221. b.d_nxpl = 2;
  222.  
  223. b.p_addr = NULL;
  224. if (dest_clip_block(&b))
  225.     ablit(&b);
  226. }
  227.  
  228. nozero_celblit(x, y, cel)
  229. WORD x, y;
  230. register Cel *cel;
  231. {
  232. struct bbblock b;
  233.  
  234.  
  235. x += cel->xoff;
  236. y += cel->yoff;
  237.  
  238. /* set up the "scoop out" blit */
  239. b.b_wd = cel->width;
  240. b.b_ht = cel->height;
  241. b.plane_ct = BITPLANES;
  242. b.op_tab[0] = b.op_tab[1] = b.op_tab[2] = b.op_tab[3] = 1; /*and*/
  243. b.d_form = cscreen;
  244. b.d_xmin = x;
  245. b.d_ymin = y;
  246. b.s_xmin = b.s_ymin = 0;
  247. b.s_form = cel->mask;
  248. b.s_nxpl = 0;
  249. b.s_nxwd = 2;
  250. b.s_nxln = (((cel->width+15)>>3)&0xfffe);
  251. b.d_nxpl = 2;
  252. b.d_nxwd = BITPLANES*2;
  253. b.d_nxln = 160;
  254. b.p_addr = NULL;
  255. if (dest_clip_block(&b))
  256.     ablit(&b);
  257.  
  258. /* and xor in the image through the hole */
  259. b.b_wd = cel->width;
  260. b.b_ht = cel->height;
  261. b.plane_ct = BITPLANES;
  262. b.op_tab[0] = b.op_tab[1] = b.op_tab[2] = b.op_tab[3] = R_XOR; /*replace*/
  263. b.d_xmin = x;
  264. b.d_ymin = y;
  265. b.s_xmin = b.s_ymin = 0;
  266. b.s_form = cel->image;
  267. b.s_nxpl = 2;
  268. b.s_nxwd = 8;
  269. b.s_nxln = Raster_line(cel->width);
  270. b.p_addr = NULL;
  271. if (dest_clip_block(&b))
  272.     ablit(&b);
  273. }
  274.  
  275.  
  276. show_c_nohot(c, xoff, yoff, color)
  277. register struct cursor *c;
  278. int xoff, yoff, color;
  279. {
  280. struct bbblock b;
  281.  
  282. b.b_wd = c->width;
  283. b.b_ht = c->height;
  284. b.plane_ct = BITPLANES;
  285. b.op_tab[0] = 4;
  286. b.op_tab[1] = 4;
  287. b.op_tab[2] = 7;
  288. b.op_tab[3] = 7;
  289. b.fg_col = color;
  290. b.d_xmin = xoff;
  291. b.d_ymin = yoff;
  292. b.d_form = cscreen;
  293. b.s_xmin = b.s_ymin = 0;
  294. b.s_form = (WORD *)c->image;
  295. b.s_nxwd = 2;
  296. b.s_nxln = ((c->width + 15)>>4)<<1;
  297. b.s_nxpl = 0;
  298. b.d_nxpl = 2;
  299. b.d_nxwd = BITPLANES*2;
  300. b.d_nxln = 160;
  301. b.p_addr = NULL;
  302. if (dest_clip_block(&b))
  303.     {
  304.     ablit(&b);
  305.     }
  306. }
  307.  
  308. show_cursor(c, x, y, color)
  309. register struct cursor *c;
  310. WORD x, y, color;
  311. {
  312. show_c_nohot(c, x - c->xhot, y - c->yhot, color);
  313. }
  314.  
  315.  
  316.